home *** CD-ROM | disk | FTP | other *** search
/ Mac Action 1996 January / mac-action-07.iso / mac / Inside Action / Total Distortion Big Demo / beRadio.Dxr / 00017.ls < prev    next >
Encoding:
Text File  |  1995-06-05  |  1.0 KB  |  73 lines
  1. on RandRadio
  2.   set n to the number of cast "startRadiofeedback.snd" - 1
  3.   set Tot to 28
  4.   set SndNum to random(Tot) + n
  5.   puppetSound(1, SndNum)
  6. end
  7.  
  8. on JumpPage n
  9.   global NowBPage
  10.   set NowBPage to n
  11.   RandRadio()
  12.   go(string(n))
  13. end
  14.  
  15. on goNowPage n
  16.   global NowBPage
  17.   RandRadio()
  18.   go(string(NowBPage))
  19. end
  20.  
  21. on PutAway
  22.   puppetSound(0)
  23.   go("exit")
  24. end
  25.  
  26. on BookHelp
  27.   RandRadio()
  28.   go("help")
  29. end
  30.  
  31. on initbook n
  32.   global NowBPage, BPageMax
  33.   set the immediate of sprite n to 1
  34.   set NowBPage to 1
  35.   set BPageMax to n
  36. end
  37.  
  38. on PageUp
  39.   global NowBPage, BPageMax
  40.   if NowBPage = BPageMax then
  41.     exit
  42.   else
  43.     set NowBPage to NowBPage + 1
  44.   end if
  45.   RandRadio()
  46.   go(string(NowBPage))
  47. end
  48.  
  49. on LastPage
  50.   global NowBPage, BPageMax
  51.   RandRadio()
  52.   go(string(BPageMax))
  53.   set NowBPage to BPageMax
  54. end
  55.  
  56. on FirstPage
  57.   global NowBPage, BPageMax
  58.   RandRadio()
  59.   go("1")
  60.   set NowBPage to 1
  61. end
  62.  
  63. on PageDN
  64.   global NowBPage, BPageMax
  65.   if NowBPage = 1 then
  66.     exit
  67.   else
  68.     set NowBPage to NowBPage - 1
  69.   end if
  70.   RandRadio()
  71.   go(string(NowBPage))
  72. end
  73.